# Sofia Alexandra Marques Silva


## Exercicios Aula 7 - Exerccios de Regresses Lineares Simples


### Exerccio - Altura na Infncia e Na Vida Adulta


#### 1

criana<-c(39,30,32,34,35,36,36,30)
adulto<-c(71,63,63,67,68,68,70,64)
m1<-lm(adulto~criana)
plot(adulto~criana, xlim=c(30,40),ylim=c(60,75),xlab="Altura 2 anos(in)", ylab="Altura Adulto (in)",
 pch=2,bty="l", main="Altura Infncia e na Vida Adulta")
abline(m1)
anova(m1)
summary(m1)

# Graficamente e pelo resultado das anlises com valores de p significativos,
# h uma relao linear significativa entre os dados.

#### 2 

plot(adulto~criana, xlim=c(30,40),ylim=c(60,75),xlab="Altura 2 anos(in)", ylab="Altura Adulto (in)",
 pch=2,bty="l", main="Altura Infncia e na Vida Adulta")
abline(m1)
# segundo a crena y = 0 + 2 * x
abline(a=0, b=2, lty=2)

#### 3

confint(m1)

#### 4		

coef(m1)
# No. Porque os coeficienes da recta do modelo e da recta
# terica so diferentes.



### Exerccio - Seriemas e Carcars

#### 1 

aves<-read.csv("aves_cerrado.csv", header=TRUE, as.is=TRUE, sep=";")
str(aves)
head(aves)
aves$fisionomia[aves$fisionomia=="ce"] <- "Ce"
aves$fisionomia<-factor(aves$fisionomia, levels=c("CL","CC","Ce"))
str(aves)
summary(aves)
aves<-aves[apply(is.na(aves),1,sum)==0,]

CL<-lm(carcara~seriema,subset=fisionomia=="CL",data=aves)
CC<-lm(carcara~seriema,subset=fisionomia=="CC",data=aves)
Ce<-lm(carcara~seriema,subset=fisionomia=="Ce",data=aves)
summary(CL) 
summary(CC)	 
summary(Ce)

# No Cerrado limpo o nmero de avistamentos das espcies,
# carcara e seriema, parece estar significativamente relacionado.
# No entanto, apenas 28% dos dados estejam explicados pelo modelo linear.


#### 2

CSF<-lm(carcara~fisionomia+seriema,data=aves)
summary(CSF)

# Sim. H diferenas significativas em todos os locais.



### Exerccio - Resduos de Iris

#### 1

require(datasets)
str(iris)
head(iris)
setosa<-iris[iris$Species=="setosa",]
str(setosa)
setosa1<-lm(Sepal.Width~Sepal.Length,data=setosa)
summary(setosa1) # A relao entre a largura e o comprimento das spalas  significativa (p<0).
# Essa relao  positiva, isto  o aumento de uma das medidas  acompanhado pelo aumento da outra,
# tal como seria de esperar, praticamente numa razo de 1:1 (estimate=0.80).
plot(setosa1) #e o modelo de regresso linear parece obedecer, de uma maneira geral, aos parmetros
# de lineariedade.


#### 2

setosa2<-residuals(lm(Sepal.Length~Petal.Length,data=setosa))
setosa3<-residuals(lm(Sepal.Width~Petal.Length,data=setosa))
setosa4<-lm(setosa2~setosa3)
summary(setosa4)
plot(setosa4)
# descontando o efeito do comprimento da ptala, a lineariedade da regresso  perdida
# apesar de se obter um valor de p significativo. 



#### FIM! ####







































